COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	% this file contains extensions to PLAIN that I might use for Xerox fonts etc
C00013 ENDMK
C⊗;
% this file contains extensions to PLAIN that I might use for Xerox fonts etc
% (if I ever finish it --- for now it's just got experimental stuff)
% (it was created when PLAIN was in a very early state; not up to date at all)
% Definitions for preloaded fonts

\newfont cmr10\is\tenrm % modern roman
\newfont cmr9\is\ninerm
\newfont cmr8\is\eightrm
\newfont cmr7\is\sevenrm
\newfont cmr6\is\sixrm
\newfont cmr5\is\fiverm
\newfont amr10\is\newrm % currently best version, lacks Greek

\newfont cmi10\is\teni % math italic
\newfont cmi9\is\ninei
\newfont cmi8\is\eighti
\newfont cmi7\is\seveni
\newfont cmi6\is\sixi
\newfont cmi5\is\fivei

\newfont amsy10\is\tensy % math symbols
\newfont amsy9\is\ninesy
\newfont cmsy8\is\eightsy % square root doesn't work in this size!
\newfont cmsy7\is\sevensy % ditto
\newfont cmsy6\is\sixsy % ditto
\newfont cmsy5\is\fivesy

\newfont cmathx\is\tenex % math extension

\newfont eufrak\is\tenfr % Fraktur

\newfont cmss10\is\tenss % sans serif
\newfont cmss9\is\niness
\newfont cmss8\is\eightss

\newfont cmsss\is\tensss % slanted sans serif
\newfont cmsss9\is\ninesss
\newfont cmsss8\is\eightsss
\newfont amsss8\is\newsss % currently best version, lacks Greek

\newfont cmb10\is\tenbf % boldface extended
\newfont cmb9\is\ninebf
\newfont cmb8\is\eightbf
\newfont ambx10\is\newbf % currently best version, lacks Greek

\newfont cmtt\is\tentt % typewriter
\newfont cmtt9\is\ninett
\newfont cmtt8\is\eighttt
\newfont cmst\is\tenst % slanted typewriter

\newfont cms10\is\tensl % slanted roman
\newfont cms9\is\ninesl
\newfont cms8\is\eightsl

\newfont cmti10\is\tenit % text italic
\newfont cmti9\is\nineit
\newfont cmti8\is\eightit
\newfont cmti7\is\sevenit

\newfont cmu10\is\tenuit % unslanted text italic

\newfont cmbti\is\tenbti % bold text italic
\newfont cmbsy\is\tenbsy % bold math symbols

\newfont cmcsc\is\tencsc % caps and small caps
\newfont cmcsc9\is\ninecsc

\newfont cmssb\is\tenssb % sans serif bold
\newfont cmss9b\is\ninessb
\newfont cmss8b\is\eightssb
\newfont amssb\is\newssb % vastly improved version, but lacks Greek
\newfont amssb at 13pt\is\largerssb % for titles
\newfont cmr7 at 21pt\is\largerrm % for titles

\newfont manfnt\is\mffnt % METAFONT logo and dragon curve
\newfont cmdunh\is\dunhill % Dunhill style
\newfont stan70\is\stanford % Stanford seal

\newfont helvetica at 9.090909bp\is\tenhrm % helvetica, should be magnified
\newfont helveticai at 9.090909bp\is\tenhit % helvetica italic
\newfont helveticab at 9.090909bp\is\tenhbf % helvetica boldface

\newfont timesroman at 9.090909bp\is\tentrm % times roman, should be magnified
\newfont timesromani at 9.090909bp\is\tentit % times italic
\newfont timesromanb at 9.090909bp\is\tentbf % times roman bold

\let\mainfont=\newrm

\newfam\fraktur

\def\tenpoint{\def\rm{\:\tenrm\fam0 }
	\textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm
	\textfont1=\teni \scriptfont1=\seveni \scriptscriptfont1=\fivei
	\textfont2=\tensy \scriptfont2=\sevensy \scriptscriptfont2=\fivesy
	\textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
	\def\it{\:\tenit\fam4 }
	\textfont4=\tenit \scriptscriptfont4=\sevenit
	\def\sl{\:\tensl\fam5 }
	\textfont5=\tensl
	\def\bf{\:\tenbf\fam6 }
	\textfont6=\tenbf
	\def\tt{\:\tentt\fam7 }
	\textfont7=\tentt
	\def\ss{\:\tenss\fam8 }
	\textfont8=\tenss
	\def\sss{\:\tensss\fam9 }
	\textfont9=\tensss
	\textfont\fraktur=\tenfr
	\baselineskip 12pt
	\dispskip 12pt plus 3pt minus 9pt
	\def\strut{{\vrule height8.5pt depth3.5pt width0pt}}}

\def\ninepoint{\def\rm{\:\ninerm\fam0 }
	\textfont0=\ninerm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm
	\textfont1=\ninei \scriptfont1=\sixi \scriptscriptfont1=\fivei
	\textfont2=\ninesy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
	\textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
	\def\it{\:\nineit\fam4 }
	\textfont4=\nineit
	\def\sl{\:\ninesl\fam5 }
	\textfont5=\ninesl
	\def\bf{\:\ninebf\fam6 }
	\textfont6=\ninebf
	\def\tt{\:\ninett\fam7 }
	\textfont7=\ninett
	\def\ss{\:\niness\fam8 }
	\textfont8=\niness
	\def\sss{\:\ninesss\fam9 }
	\textfont9=\ninesss
	\textfont\fraktur=\ninefr
	\baselineskip 11pt
	\dispskip 11pt plus 3pt minus 8pt
	\def\strut{{\vrule height8pt depth3pt width0pt}}}

\def\eightpoint{\def\rm{\:\eightrm\fam0 }
	\textfont0=\eightrm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm
	\textfont1=\eighti \scriptfont1=\sixi \scriptscriptfont1=\fivei
	\textfont2=\eightsy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
	\textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
	\def\it{\:\eightit\fam4 }
	\textfont4=\eightit
	\def\sl{\:\eightsl\fam5 }
	\textfont5=\eightsl
	\def\bf{\:\eightbf\fam6 }
	\textfont6=\eightbf
	\def\tt{\:\eighttt\fam7 }
	\textfont7=\eighttt
	\def\ss{\:\eightss\fam8 }
	\textfont8=\eightss
	\def\sss{\:\eightsss\fam9 }
	\textfont9=\eightsss
	\textfont\fraktur=\eightfr
	\baselineskip 11pt
	\dispskip 11pt plus 3pt minus 8pt
	\def\strut{{\vrule height8pt depth3pt width0pt}}}

% the following macros are for text in PARC fonts
% say \xeroxworld for text in timesroman10 (math in computer modern as usual)
% and say \xeroxworld\helvetica for text in helvetica10
\def\xeroxworld{\magnify{1100}
	\def\rm{\:\tentrm\fam0 }
	\def\it{\:\tentit\fam4 }
	\def\bf{\:\tentbf\fam6 }
	\def\ss{\:\tenhrm\fam8 }
	\def\sss{\:\tenhit\fam9 }
	\def\xac##1##2{\vbox{\hbox{\char##1}\kern\minusthe\texinfo\the\:5
		\hbox{##2}}} % places zero-width accent in Xerox-like font
	\def\mxac##1##2{\ifmmode{\def\next{\accent'##1}}
		\else{\def\next{\xac{##2}}} \next}
	\def\`{\xac5}
	\def\'{\xac{'13}}
	\def\↑{\mxac{17}\error}
	\def\v{\mxac{20}1}
	\def\u{\mxac{21}{'27}}
	\def\={\mxac{22}{'16}}
	\def\"{\mxac{23}4}
	\def\H{\xac4}
	\def\b{\mxac{25}\error}
	\def\~{\mxac{24}{'36}}
	\def\t{\error}
	\def\a{\xac{'37}}
	\def\l{\error}
	\def\c{\error}
	\def\i{\error}
	\def\j{\error}}
\def\helvetica{\def\rm{\tenhrm\fam0 }
	\def\it{\tenhit\fam4 }
	\def\sl{\tenhit\fam5 }
	\def\bf{\tenhbf\fam6 }}